﻿Public Class Comandante : Inherits Campeon
    Protected Const FUERZA_COM = FUERZA_CAMP
    Protected Const ATAQUE_COM = ATAQUE_CAMP
    Protected Const VELOCIDAD_COM = VELOCIDAD_CAMP
    Protected Const VIDA_COM = VIDA_CAMP + 2
    Protected Const COSTE_COM = COSTE_CAMP + 3
    Protected Const DEFENSA_COM = DEFENSA_CAMP + 1
    Protected Const DISCIPLINA_COM = DISCIPLINA_CAMP + 2
    Protected Const TAMAÑO_COM = TAMAÑO_CAMP

    Public Sub New(ByVal nombre As String)
        MyBase.New(nombre)
        Me.Fuerza = FUERZA_COM
        Me.Ataque = ATAQUE_COM
        Me.Velocidad = VELOCIDAD_COM
        Me.Vida = VIDA_COM
        Me.Defensa = DEFENSA_COM
        Me.Coste = COSTE_COM
        Me.Tamaño = TAMAÑO_COM
        Me.Disciplina = DISCIPLINA_COM
    End Sub
End Class
